perm filename WORLD[P,JRA] blob sn#051069 filedate 1973-06-27 generic text, type T, neo UTF8
00100	(DE COMPWORLD(W1 W2)
00200	(PROG (X LX)
00300	(SETQ LX(CDDDR(GET 'ITEM '*INDEX)))
00400	B(SETQ X(CAAR LX))
00500	(COND((PRESENT X W1)(GO C))
00600	     ((PRESENT X W2)(RETURN NIL)))
00700	A(SETQ LX(CDR LX))
00800	(COND(LX(GO B)))
00850	(RETURN T)
00900	C(COND((PRESENT X W2)(GO A)))
01000	(RETURN NIL)))